<%@ Language=VBScript %>
<%
	'Response.ContentType="text/xml"
	dim obj
	dim rs 
	'set rs=server.CreateObject("adodb.recordset")
	set obj=server.CreateObject("ZCGL.authmanage")
	set rs=obj.UserList
	i=0
	while i<rs.Fields.Count 
		Response.Write rs.Fields(i).Type & rs.Fields(i).Name & "     " 
		i=i+1
	wend
	set rs=nothing
	set obj=nothing
%>
